home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / net / tf02.lha / TinyFugue / tf-lib / at.tf < prev    next >
Text File  |  1995-08-12  |  378b  |  13 lines
  1. ;;; AT - run a command at a given time
  2. ;; syntax:  /at <when> <commands>
  3. ;; <commands> will be executed at <when>, where <when> is of the form
  4. ;; "hh:mm" or "hh:mm:ss" ("hh" is between 0 and 23).  <when> is within
  5. ;; the next 24 hours.
  6.  
  7. /~loaded at.tf
  8.  
  9. /def -i at = \
  10.     /let delay=$[{1} - $(/time %%H:%%M:%%S)]%;\
  11.     /repeat -$[(delay >= 0) ? delay : (delay + 24:00)] 1 %-1
  12.  
  13.